home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / req2.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  49 lines
  1. DEFINITION MODULE Req2;
  2. (* Aufbau einer Gadget-Struktur in einem Window *)
  3. (* Modul erstellt mit GadgetEd V1.0 *)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7. CONST NumbGadgReq2 = 8;   (* Anzahl der Gadgets *)
  8.  
  9. PROCEDURE InitReq2
  10.                         (VAR wptr   : ADDRESS;
  11.                              Screen : ADDRESS;
  12.                              Title  : ADDRESS);
  13. (* Aufbauen der Gadget-Struktur. 
  14.    wptr  : Zeiger auf das Window, in das die Gadget-Struktur ein-
  15.            gebaut werden soll.
  16.            Falls wptr = NIL wird ein Standard-Window, mit Größe
  17.            und Position wie im Editor definiert, eröffnet.
  18.  
  19.    Diese Parameter haben nur für wptr = NIL eine Wirkung:
  20.    Screen: Zeiger auf Screen, in dem das Window erscheinen soll.
  21.            NIL für WorkbenchScreen.
  22.    Title : Zeiger auf Namen des Windows *)
  23.  
  24. PROCEDURE CloseReq2;
  25. (* Schließen des Gadget-Windows. *)
  26.  
  27. PROCEDURE GetReq2GPtr (ID : INTEGER) : ADDRESS;
  28. (* Liefert den GadgetPtr des Gadgets mit der angegebenen ID. *)
  29.  
  30. (*
  31. Liste der Gadgets mit IDs:
  32. --------------------------
  33.  
  34. Bereich der IDs: 0 .. NumbGadg-1
  35.  
  36. ID  Typ         Text des Gadgets
  37. ----------------------------------------------------------
  38. 00  boolGadget   OK
  39. 01  boolGadget   CANCEL
  40. 02  boolGadget   VIELLEICHT
  41. 03  strGadget    Name
  42. 04  strGadget    Straße
  43. 05  strGadget    Postleitzahl
  44. 06  strGadget    Wohnort
  45. 07  strGadget    Geburtsdatum
  46. *)
  47.  
  48. END Req2.
  49.